home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00220_Reset button on high score screen.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  833 b   |  45 lines
  1. property pSpr, pOrig, pHigh
  2.  
  3. on beginSprite me
  4.   global gHighScores
  5.   retrieveHiScores()
  6.   pSpr = sprite(me.spriteNum)
  7.   pOrig = pSpr.member
  8.   pHigh = nextMember(pOrig)
  9.   if count(gHighScores) = 0 then
  10.     pSpr.visible = 0
  11.   end if
  12.   setCursor(pSpr, pointingHand())
  13. end
  14.  
  15. on endSprite
  16.   pSpr.visible = 1
  17.   setCursor(pSpr, defaultCursor())
  18. end
  19.  
  20. on mouseUp me
  21.   global gHighScoreFile
  22.   pSpr.member = pOrig
  23.   answer = yesNoDialogBox("Are you sure you want to clear all high scores?", "Reset High Scores?", #question, #NO)
  24.   if answer = #yes then
  25.     waitCursor()
  26.     DeleteFile(gHighScoreFile)
  27.     retrieveHiScores()
  28.     sendSprite(me.spriteNum + 1, #mRefresh)
  29.     resetCursor()
  30.     pSpr.visible = 0
  31.   end if
  32. end
  33.  
  34. on mouseDown me
  35.   clickSound()
  36. end
  37.  
  38. on mouseLeave me
  39.   pSpr.member = pOrig
  40. end
  41.  
  42. on mouseEnter me
  43.   pSpr.member = pHigh
  44. end
  45.